(command-line): Convert library names in `load-history' to absolute file names.

diff --git a/lisp/startup.el b/lisp/startup.el
index 82191509ef9fc7b3b5eb11de3de31cccc9804256..28a29fd6a2ebe2f52d1b597861ba39d681eb4a3e 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -641,6 +641,17 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
 
   (set-locale-environment nil)
 
+  ;; Convert preloaded file names to absolute.
+  (setq load-history
+       (mapcar (lambda (elt)
+                 (if (and (stringp (car elt))
+                          (not (file-name-absolute-p (car elt))))
+                     (cons (locate-file (car elt) load-path
+                                        load-suffixes)
+                           (cdr elt))
+                   elt))
+               load-history))
+
   ;; Convert the arguments to Emacs internal representation.
   (let ((args (cdr command-line-args)))
     (while args